inherited FPesquisaFluxoCaixa: TFPesquisaFluxoCaixa
  Left = 216
  Top = 135
  ActiveControl = DEInicial
  Caption = 'Pesquisa Fluxo Caixa'
  ClientHeight = 281
  ClientWidth = 410
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 410
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
  end
  inherited Panel1: TPanel
    Width = 410
    Height = 240
    object Label1: TLabel [0]
      Left = 101
      Top = 24
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label2: TLabel [1]
      Left = 3
      Top = 5
      Width = 82
      Height = 13
      Caption = 'Data Vencimento'
    end
    object Label3: TLabel [2]
      Left = 209
      Top = 5
      Width = 103
      Height = 13
      Caption = 'Grupo Conta Corrente'
    end
    object Label4: TLabel [3]
      Left = 319
      Top = 5
      Width = 55
      Height = 13
      Caption = 'Saldo Inical'
    end
    object Label10: TLabel [4]
      Left = 3
      Top = 59
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    inherited DBGrid1: TDBGrid
      Top = 116
      Width = 408
      Height = 103
      Columns = <
        item
          Expanded = False
          FieldName = 'ESTRUTURA'
          Title.Caption = 'Estrutura'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NATUREZA'
          Title.Caption = 'Natureza'
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATA'
          Title.Caption = 'Data'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALOR'
          Title.Caption = 'Valor'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 219
      Width = 408
    end
    object DEInicial: TDateEdit
      Left = 3
      Top = 21
      Width = 96
      Height = 21
      NumGlyphs = 2
      TabOrder = 2
    end
    object DEFinal: TDateEdit
      Left = 110
      Top = 21
      Width = 93
      Height = 21
      NumGlyphs = 2
      TabOrder = 3
    end
    object EGrupoConta: TEdit
      Left = 209
      Top = 21
      Width = 70
      Height = 21
      TabOrder = 4
    end
    object ESaldoInicial: TEdit
      Left = 319
      Top = 21
      Width = 83
      Height = 21
      TabOrder = 5
      OnKeyPress = ESaldoInicialKeyPress
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 3
      Top = 43
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 6
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 76
      Width = 408
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 7
    end
  end
  inherited QPesquisa: TQuery
    ObjectView = True
    SQL.Strings = (
      
        'Select PlanoContas.Estrutura as Estrutura ,PlanoContas.Natureza ' +
        'as Natureza,PlanoContas.CodPai as Pai,Cp_DataVencimento as Data,' +
        'PlanoContas.Descricao as Descricao, Sum(CP_Saldo) as Valor'
      
        'from ContasPagar Left Join planoContas on Cp_Plano =  PlanoConta' +
        's.Codigo'
      
        'Group by PlanoContas.Estrutura,PlanoContas.Natureza,CP_DataVenci' +
        'mento,PlanoContas.Descricao,PlanoContas.CodPai'
      'having (CP_Saldo <> 0 )'
      ''
      'Union'
      
        'Select PlanoContas.Estrutura as Estrutura ,PlanoContas.Natureza ' +
        'as Natureza,PlanoContas.CodPai as Pai,CR_DataVencimento as Data,' +
        'PlanoContas.Descricao as Descricao, Sum(Cr_Saldo) as Valor'
      
        'from ContasReceber Left Join planoContas on CR_Plano =  PlanoCon' +
        'tas.Codigo'
      
        'Group by PlanoContas.Estrutura,PlanoContas.Natureza,CR_DataVenci' +
        'mento,PlanoContas.Descricao,PlanoContas.CodPai'
      'having   (CR_Saldo <> 0 )'
      '')
    Left = 192
    Top = 169
  end
  inherited DSPesquisa: TDataSource
    Left = 240
    Top = 169
  end
  object QFluxoCaixa: TQuery
    ObjectView = True
    DatabaseName = 'baseLocal'
    RequestLive = True
    SQL.Strings = (
      'Select * from FluxoCaixa '
      'Order by Estrutura')
    Left = 24
    Top = 121
  end
  object QAux: TQuery
    DatabaseName = 'base'
    Left = 284
    Top = 121
  end
  object QAux2: TQuery
    DatabaseName = 'baseLocal'
    Left = 68
    Top = 121
  end
end
